library(readr); library(dplyr); library(stringr); library(lubridate)
install.packages("plotly")
plasticContainer <- list(
greenBox=c("paper","scissor"), # location 1
redBox=c(1L,3L,2.5), # location 2
blueBox=c(TRUE,FALSE,TRUE,TRUE) # location 3
)
download.file("https://github.com/tpemartin/github-data/blob/master/plotly_4070_neda.Rda?raw=true",destfile = "plotly_4070_neda.Rda")
嘗試 URL 'https://github.com/tpemartin/github-data/blob/master/plotly_4070_neda.Rda?raw=true'
Content type 'application/octet-stream' length 12400 bytes (12 KB)
==================================================
downloaded 12 KB
load("plotly_4070_neda.Rda")
library(plotly)
Loading required package: ggplot2
Attaching package: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout
plotly_4070_neda
plasticContainer[c("greenBox")] # or plasticContainer[c(1,2)]
$greenBox
[1] "paper" "scissor"
plasticContainer["greenBox"] # or plasticContainer[c(1,2)]
$greenBox
[1] "paper" "scissor"
plasticContainer[["greenBox"]] # or plasticContainer[[1]]
[1] "paper" "scissor"
plasticContainer["greenBox"][[1]][1]
[1] "paper"
plasticContainer[["greenBox"]][1]
[1] "paper"
plotly_4070_neda$x$layout$shapes[[1]]$opacity<-0.8
plotly_4070_neda
LS0tCnRpdGxlOiAiMjAxOC0xMi0yNiIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQpgYGB7cn0KbGlicmFyeShyZWFkcik7IGxpYnJhcnkoZHBseXIpOyBsaWJyYXJ5KHN0cmluZ3IpOyBsaWJyYXJ5KGx1YnJpZGF0ZSkKYGBgCgpgYGB7cn0KaW5zdGFsbC5wYWNrYWdlcygicGxvdGx5IikKYGBgCgpgYGB7cn0KcGxhc3RpY0NvbnRhaW5lciA8LSBsaXN0KAogIGdyZWVuQm94PWMoInBhcGVyIiwic2Npc3NvciIpLCAgICAgIyBsb2NhdGlvbiAxCiAgcmVkQm94PWMoMUwsM0wsMi41KSwgICAgICAgICAgICAgICAjIGxvY2F0aW9uIDIKICBibHVlQm94PWMoVFJVRSxGQUxTRSxUUlVFLFRSVUUpICAgICMgbG9jYXRpb24gMwopCmBgYAoKYGBge3J9CmRvd25sb2FkLmZpbGUoImh0dHBzOi8vZ2l0aHViLmNvbS90cGVtYXJ0aW4vZ2l0aHViLWRhdGEvYmxvYi9tYXN0ZXIvcGxvdGx5XzQwNzBfbmVkYS5SZGE/cmF3PXRydWUiLGRlc3RmaWxlID0gInBsb3RseV80MDcwX25lZGEuUmRhIikKbG9hZCgicGxvdGx5XzQwNzBfbmVkYS5SZGEiKQpsaWJyYXJ5KHBsb3RseSkKcGxvdGx5XzQwNzBfbmVkYQpgYGAKCmBgYHtyfQpwbGFzdGljQ29udGFpbmVyW2MoImdyZWVuQm94IildICMgb3IgcGxhc3RpY0NvbnRhaW5lcltjKDEsMildCnBsYXN0aWNDb250YWluZXJbImdyZWVuQm94Il0gIyBvciBwbGFzdGljQ29udGFpbmVyW2MoMSwyKV0KYGBgCgpgYGB7cn0KcGxhc3RpY0NvbnRhaW5lcltbImdyZWVuQm94Il1dICMgb3IgcGxhc3RpY0NvbnRhaW5lcltbMV1dCmBgYAoKYGBge3J9CnBsYXN0aWNDb250YWluZXJbImdyZWVuQm94Il1bWzFdXVsxXQpwbGFzdGljQ29udGFpbmVyW1siZ3JlZW5Cb3giXV1bMV0KYGBgCgpgYGB7cn0KcGxvdGx5XzQwNzBfbmVkYSR4JGxheW91dCRzaGFwZXNbWzFdXSRvcGFjaXR5PC0wLjgKcGxvdGx5XzQwNzBfbmVkYQpgYGAKCg==